home *** CD-ROM | disk | FTP | other *** search
- object RegForm: TRegForm
- Left = 334
- Top = 211
- BorderStyle = bsDialog
- Caption = 'Enregistrement'
- ClientHeight = 185
- ClientWidth = 281
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- OnCreate = FormCreate
- OnKeyPress = FormKeyPress
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 16
- Top = 16
- Width = 169
- Height = 13
- Caption = 'Utilisateur / Soci'#233't'#233' / Organisation :'
- end
- object Label2: TLabel
- Left = 16
- Top = 72
- Width = 101
- Height = 13
- Caption = 'Cl'#233' d'#39'enregistrement :'
- end
- object EdiUser: TEdit
- Left = 16
- Top = 32
- Width = 249
- Height = 21
- MaxLength = 32
- TabOrder = 0
- OnChange = EdiUserChange
- end
- object EdiKey1: TEdit
- Left = 16
- Top = 88
- Width = 57
- Height = 21
- AutoSelect = False
- CharCase = ecUpperCase
- MaxLength = 5
- TabOrder = 1
- OnChange = EdiKeyChange
- end
- object EdiKey2: TEdit
- Left = 80
- Top = 88
- Width = 57
- Height = 21
- AutoSelect = False
- CharCase = ecUpperCase
- MaxLength = 5
- TabOrder = 2
- OnChange = EdiKeyChange
- end
- object EdiKey3: TEdit
- Left = 144
- Top = 88
- Width = 57
- Height = 21
- AutoSelect = False
- CharCase = ecUpperCase
- MaxLength = 5
- TabOrder = 3
- OnChange = EdiKeyChange
- end
- object EdiKey4: TEdit
- Left = 208
- Top = 88
- Width = 57
- Height = 21
- AutoSelect = False
- CharCase = ecUpperCase
- MaxLength = 5
- TabOrder = 4
- OnChange = EdiKeyChange
- end
- object BAnnuler: TButton
- Left = 192
- Top = 144
- Width = 75
- Height = 25
- Caption = 'Annuler'
- TabOrder = 5
- OnClick = BAnnulerClick
- end
- object BOk: TButton
- Left = 112
- Top = 144
- Width = 75
- Height = 25
- Caption = 'Ok'
- TabOrder = 6
- OnClick = BOkClick
- end
- object BDel: TButton
- Left = 16
- Top = 144
- Width = 75
- Height = 25
- Caption = 'Supprimer'
- TabOrder = 7
- OnClick = BDelClick
- end
- end
-